EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
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| 
| 
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c 8 | 
**F 1LE**1D**STRUNWDEQ 
| 2 
; 
SSSSSSSS TITTTTTTTTT RRRRRRRR UU UU NN NN WW Ww DDDDDDDD EEEEEEEEEE QQQQQQ ; 
SSSSSSSS_ TTTTTTTTTT RRRRRRRR UU UU NN NN WW WwW DDDDDDDD EEEEEEEEEE QQQ00a 
SS TT RR RR UU UU NN NN WW Ww DD DD EE QQ QQ 
ss TT RR RR UU UU NN NN WW Ww DD DD EE QQ QQ 
SS TT RR RR UU UU NNNN NN WW Ww DD DD EE QQ QQ 
ss TT RR RR UU UU NNNN NN WW Ww DD DD EE QQ Q 
SSSSSS TT RRRRRRRR UU UU NN NN NN WW Ww DD DD EEEEEEEE QQ QQ 
SSSSSS TT RRRRRRRR UU UU NN NN NN WW Ww OD DD EEEEEEEE Qo Q 
SS TT RR RR UU UU NN NNNN WW Ww WW DD DD EE QQ QQ QQ 
SS TT RR RR UU UU NN NNNN WW WW WwW DD DD EE QQ QQ QQ 
SS TT RR RR UU UU NN NN WWWW WWwWWw DD DD EE QQ QQ eeee 
ss TT RR RR UU UU NN NN WWWW WwWWW DD DD EE QQ QQ cece 
SSSSSSSS TT RR RR UUUUUUUUUU NN NN WW Ww DDDDDDDD EEEEEEEEEE QQQag aa cece 
SSSSSSSS TT RR RR UUUUUUUUUU NN NN WW Ww DDDDDDDD EEEEEEEEEE QQaQaQ aa eeee 
LL III111 SSSSSSSS 
LL III] SSSSSSSS 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIII] SSSS.°oS 
LLLLLLLLLL HII SSSSSSSS 
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STRSSUNWDEQ 


91:79:49 Ax-11 Oeste V4.0-74 

2:40:16 LIBRTL.SRCJISTRUNWDEQ.832;1 (1) 
ri 
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equeuer for unwind 
RUNWDEO.BS2 


~1984 
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MODULE STRSSUNWDEQ ( '§ 


: $t d 
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IDENT = '1-002" i File: s 


BEGIN 


Oooo 


oo OO 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

cl 

® 

® 

® 

® 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
if OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 

® 

a 

® 

* 

® 

® 

® 

® 

® 
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!® TRANSFERRED. 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eRPORAT on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: :# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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* 
FACILITY: String support Library 
ABSTRACT: 


This module contains the routine that dequeues interlocked 
strings on unwind. 


WAAR PINON NONONUNININY 2 2 OS OS 


NAME AN 9 OONOA UNE WN OO ODNAUES WN OOONOU SW 


So Sssooesssseesess 
SSSsssssssssssssss 


WWWAAAI AIAN ronorononononononong 


ENVIRONMENT: VAX-11 User mode 
AUTHOR: John Sauter, CREATION DATE: 30-OCT-1979 
MODIFIED BY: 


1-001 = Original. JBS 30-OCT-1979 | 
1-002 - Fix setup for REMQUE. JBS 06-NOV-1979 


DONA UE WN 0 OOD NOA UE WN 8 ODNOA UE WIN OO ONAU EWN OOONOUS Wh 
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ooo 
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! <BLF /PAGE> 


ce ; 


8 
TRSSUNWDEQ ibese -1984 01:50:49 AX-11 Bliss-32 V4.0-74 Page 2. 
3 rb03 1738871982 93:28:48 «Haare SabSsfaunuoca as2.1 v a5) 
P ' 
= 0 8 1 . | 
3 : H SWITCHES: 
; ! 
; 1 
3 ¢ ! SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
3 $ 7 | 
H § : LINKAGES: 
: § 38 1! NONE 
:; 60 059 1! 
4 61 9 1 ! TABLE OF CONTENTS: 
; 6 1! 
i a ; 1 
3 64 1 FORWARD ROUTINE 
: e? : } STRSSUNWDEQ; ! On unwind, dequeue strings 
3; 667 0066 1! 
; oo 067 1 ! INCLUDE FILES: 
; & 0068 1! 
; £0 0069 1 
3 4 O15 : REQUIRE ‘RTLIN:RTLPSECT'; ' Declare PSECTS code 
3 o 166 : LIBRARY 'RTLSTARLE'; ! STARLET Library for macros and symbols 
ae ate 1! 
3 76 8198 1 ! MACROS: 
or 170 1! 
2) 0171 1! NONE 
:; 79 O17¢ 1! 
3 80 017 1 ! EQUATED SYMBOLS: 
— 0174 1! 
; & B17? 1! NONE 
3 H 176 1! 
4 4 gi? 1 ! PSECT DECLARATIONS 
= 178 1! 
3 a6 ate : DECLARE _PSECTS (STR); ! Declare psects for STR$ facility 
; @ B13) 1 ! OWN STORAGE: 
; 01 ; 1! 
; 183 1! NONE 
3 91 184 1! 
a. 185 1 ! EXTERNAL REFERENCES: 
Sk 196 1! 
; | 694 1 1 
; «95 188 1 EXTERNAL ROUTINE sg | 
; 96 189 1 LIBSMATCH_COND; . ! Match a condition code 
: 97 190 1 
; 98 191 1 !¢ ; 
: 190 135 : The following is the header for the queue of interlocked strings. 
; 101 194 1 
: oe 195 1 EXTERNAL 
~ 3a 138 1 STR$$Q_INTLK : VECTOR (C2, LONG); 
: 104 197 1 
| 
| 


F 8 
16-Sep-1984 01:50:49 -YAX=11 Bliss-32 v4.0-76 
1-85-1986 234 ULIGRTL. SRCISTRUNUOEO .832; 1 


4 
-00 -Sep-1984 :16 
1 19 GLOBAL ROUTINE STRSSUNWDEQ ( ! Dequeve strings on UNWIND 
1 $1G, ! Signal vector 
0 MECH, ' Mechanism vector 
; , ENBL ! Enable vector 
= 
4 '¢ 
5 FUNCTIONAL DESCRIPTION 


if we are unwinding, free the interlocked strings. The number of such strings 
S passed in the enable vector. 


FORMAL PARAMETERS: 
$1G.rl.a A counted vector of parameters to LIBSSIGNAL/STOP 
MECH. rl.a A counted vector of info from CHF 
ENBL.ra.a A counted vector of ENABLE argument addresses 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
Always SSS_RESIGNAL, which is ignored when unwinding. 
SIDE EFFECTS: 
Removes entries from the string interlock queue. 


Sr SS a ee 


BEGIN 


BUILTIN 
REMQUE ; 


SIG : REF VECTOR 
MECH : REF VECTOR, 
ENBL : REF VECTOR: 


+ 
: Only dequeve if this is the UNWIND condition. 
IF ( NOT (LIBSMATCH_COND (SIG C1], ZREF (SS$_UNWIND)))) THEN RETURN (SS$_RESIGNAL); 


+ 
: Remove interlock control blocks from the string interlock queue. 
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INCR COUNTER FROM 1 TO ..ENBL [1] DO 
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eS ce 


8 | 
$ep-1984 01:50:49 AX-11 Bliss-32 V4.0-74 Pp 4 
et ri a ile BP Soe o9¢ 3} 


: 163 5 BEGIN 

: 165 ; LOCAL 

i 166 : REMQUE_ADDR, 

: 1? 26 JUNK; 

: 189 61 REMQUE_ADDR = STRS$Q_INTLK [1]; 

: 170 6g REMQUE~(..REMQUE_ADDR, JUNK); 

a a 

; 138 65 RETURN (SS$_RESIGNAL); 

: 17% 66 END; ! End of STRSSUNWDEQ 


- TITLE dba + aa 
-IDENT \1-002\ 


.EXTRN LIBSMATCH_COND, STRS$Q_INTLK 


.PSECT _STRSCODE,NOWRT, SHR, PIC,2 
000c 00000 .ENTRY STRSSUNWDEQ, Save R2,R3 : 0198 
7E 0920 BF 3¢ 900¢ MOVZWL #2336, -(SP5 : 0248 
E DD 0000 PUSH ; 
7E 06 ac 04 ¢1 00009 ADDLS #4, SIG, =(SP) : 
000000006 00 08 FB 0005 CALLS 2, | JBSMATCH_coND ; 
1 E9 0001 BLBC ~=_—«aRO,;_-3$ ; 
20 Oc ac 00 0018 MOVL  ENBL, RO > 0254 
5 04 89 DO 0001 MOVE  @4(RO), R3 : 
D4 000 CLRL COUNTER : 
08 11 000 BRB $ : 
51 000000006 9E 00024 1$: MOVAB STRS$$Q_INTLK+4, REMQUE_ADDR F 0261 
0 00 81 OF 0002B REMQUE a0 (REMGUE ADDRS, JUNK : 0262 
FI 38 F3 OO002F 33 AOBLEQ R COUNTER, 1$ > 0254 
5 0918 BF 3 90033 $ MOVZ2WL #2528, RO : 0265 
04 000 RET : 0266 
; Routine Size: 57 bytes, Routine Base: _STRSCODE + 0000 
(175 0 67 1 
: 176 68 1 END 'End of module STRSSUNWDEQ 
WA a4 0 +4 1 
: 178 0270 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
i _STRSCODE 57 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
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Library Statistics 


woceeee= Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$0UA28: CSYSLIBISTARLET.L32;1 9776 2 0 581 00:00.7 


COMMAND QUALIFIERS 


ae oi 


BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L 15S: STRUNUDEG/0BJ=08J$ : STRUNUDEO MSRC$: STRUNWDEQ/UPDATE=(ENHS: STRUNWDEQ 


Size: 57 code + 0 data bytes 


Elapsed Time: 00:13.8 
Lines/CPU Min: 6585 
Coy Ae Se 18219 
poneey Used: 42 pages 
Compilation Complete 
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